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MODULE AEDSDECODE 


i WGUAGE , (OL 13836) « 
BEGIN 


PETTITT TT TTT TIT TTT TTT TTT Trier iri iii citi iii ii ititiiiiiiiig 


'@ 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 

ie DIGITAL ef eGORPORATION, MAYNARD. MASSACHUSETTS. 
i ALL RIGHTS RESER 


i aig SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gd 
'® ONLY IN ACCORDAN is WITH THE TERMS OF Tha CH LICENSE AND WITH THE 
!# INCLUSION OF ty & OVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
i COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
* 
® 
® 
me 
® 
® 
® 
® 
® 
ie TRANSFERRED. * 
& 
® 
® 
* 
* 
® 
® 
® 
wy 
® 


ae 8 8 ad aD a 


NAME WN SO OD NAVE WN OOD NAME WN (OO ONAULS WN OOONAULS WN OW ONOUS Wwe 
oO 


ie pe gt he IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
je AN onmpoke oy 57 Al NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'# DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


'@ 
PTTTIITIITITIIIII LILI TLL LLL LLL Lilli Litiiiiiiiiiiiiiiiiiiiii il 


i ABSTRACT: 


MEUM OOONOUE WO OONOULS WOOO 


module contains the routines necessary to read the action 
get inision file and decode the users input based upon the action 
) 


definitions. 


i ENVIRONMENT: 


FeuUwnw 
NOULWN OO 


VAX/VMS operating system, user mode utilities. 


a a a a a kk ke ed ad dd dd dd dd td I I IOOOO 
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0 ee ee 8 ee 8 a ee 8 ae 8 at a 8 a 8 ae 8 8 a 8 8 a a 8 eee 


4 
6 
4 
4 
4 
4 
2 i AUTHOR: L. Mark Pilant CREATION DATE: 15-Sep-1982 15:30 
4 i MODIFIED BY: 
H v03-005 LMP0213 Mark Pilant 24-Mar-1984 12:23 
2¢ Add support for an and unlocking the object's ACL. 
34 v03-004 oie b< Pilan 14-Feb-1984 10:04 
5 iS quapert for vadteienel e dition actions: delete SOL, 
2$ atk on reset, and quit session. 


1e¢ 
t 
FACILiTY: Miscellaneous utilities 


AEDSDECODE 1§-15,-1986 23:37:5 AX-11 Bliss-32 v4.0-7 p 
rae tts eet a Sat et tg pte ~~ e 


; 38 38 1! v03-003 LMP0172 Mark Pilant, 28-Nov-1983 12:11 
; 9 >) ae ae Numerous bug fixes support for VT2xx terminals, and a 

3 ” 0 ! } session keystroke mer 

; 6¢ 062 1! v03-002 LMP0142 he Pilant, 24-Aug-1983 3:17 
3 oz : Change references A. *ACLEDIS SINI to be ACLEDITSINIT. 

> 65 5 1: v03-001 LMPO103 21-Apr-1983 12:44 
; 66 9066 } Add support for HiDDEN® Ba LOROTECTED ACEs. 

: 68 068 1 ive 

: $9 $ 1 

$ 0 Q 1 LIBR os *SYSSL IBRARY:L1IB.L32'; 

or 071 1 LIBRARY 'SYSSLIBRARY: TPAMAC.L32’; 

3 72 72 1 REQUIRE "SRCS:ACLEDTDEF'; 
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; 74 5 1 FORWARD ROUTINE 

; § 1 GETKEYINI, ! Check for & read definition file 
Bee . 1 AED_DECODEKEY, ! Decode input given definitions 
3 f ! AED_FLUSHKEY, ! Flush session buffer & close file 
: 3 i ! TPARSE action routine. 

; 1 § 1 SET_RUBOUT ! Set rubout as the string definition 
; : ; SET-DEF INITION; i Define a key 

; Hi 5 1 EXTERNAL ROUTINE 

3; & 2 1 AED_FILERROR : NOVALUE, ! RMS file error reporting 

3; 1 AED _PUTOUTPUT ! General purpose — routine 
; 44 5 3 ! AED-SET_CURSOR; ! Set cursor position & remember 
: 89 346 1 EXTERNAL 

: 3S 8 Z i KEY_TABLE : SBBLOCK (8); ! Key definition table Listhead 
: 3 O58 1! Storage for TPARSE usage. 

: 3a ae 1 own 

; 95 0346 1 KEY_BLOCK : $BBLOCK KEY C_LENGTH, ! Key definition block 

3 a O34 } KEY_STRING : SBBLOCK CoSCSC_S_BLNI; ! Key string descriptor 
; 98 205 1 BIND 

; 99 550 1 KEY_ACTION = KEY_BLOCKCKEY_B_ACTION] : BYTE, ! Action code 

3 + 22! : KEY_FLAGS = KEY_BLOCKCKEY_B_FLAGS] : BYTE; ! Needed flags 

: 10¢ He ! TPARSE state tables to parse the action definition file. 

; 194 338 | SINIT_STATE (KEYDEF_STATE, KEYDEF_KEY); 

; 19 P 235 1 SSTATE (SWALLOW 1, 

3 107 P 258 1 (TPAS_BLANK,SWALLOW_1), 

; 108 P 359 ("DEFINE") 

: 110 561 1 ‘ 

> 111 P 26¢ 1 SSTATE (SWALLOW_2, 

; 118 P 0563 1 (TPAS BLANK, SWALLOW 2) 

i oie poses { GOLD, + KEY =E-GOLB-REY_ACTION) 

> 115 P0366 | (HELP FORMAT® «KEY C_HELPFRT KEY ACTION) 

; 116 P 0567 1 ("LOCATE_STRING'’., ,KEY-C_FIND_STR,REY_ACTION), 

> 11 P 1 (*LOCATE_NEXT',, -KEY_C-FIND_NRT,KEY_ACTION), 

i 118 P 1 (*DELETE-ACE’, «KEY C_OEL ACE .KEY_ACTION) 

on P 05 0 1 (“UNDELETE Ace: , .KEY-C_URDEL ACESKEY ACTION) 

3 120 P0571 1 ("SELECT FIELD’), .KEY-C “SEL F ELD KEY"ACTION) 

: 121 P Ore | ("ADVANCE FIELD',, KEY_C ADO FIELO,KEY ACTIONS, 

: 4 3 P 2 F (*DELET DORD', ,.KEY C-DEL WRD.KEY_ACTION) 

; 1 P0574 1 (*UNDELETE WORD!) , KEY C,URDEL WRD KEY ACTION) 

3 126 P0575 1 ("ADVANCE POSITION',, ,REY_C_ADVANCE KEY ACTIONS, 

3 125 P id: 1 (*BACKUP_POSITION' ,, KEY C BACKUP, KEY ACTION), 

: 1 6 P0577 1 (ELE t CHARACTER' KEY C_DEL CHR,KEY_ACTION) 

; (1 P A: 1 ("UNDELETE CHARACTER'., ,KEY-C_URDEL CHR-KEY_ACTION), 

-* 2 P 1 (*MOVE_WORD",, KEY C MOVE WRD-KEY ACTION), 

: 1 P 380 } ("MOVE"ACE ++ KEY Rov _ACE.K V_ACTION), 

1. $ P 1 ("MOVE-EOL".. .KEY~CMOVE EOL ,.KEY-ACTION) , 
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GLOBAL ROUTINE AED_GETKEYINI = 
lee 


FUNCTIONAL DESCRIPTION: 
ay routine attempts to open the action 1 dg 443 py file pointed 


o by the logical name ACL a INIT. If fhe. logical name does not 
exist as yn Be return is given. If the logica — sts, but 
the file it point 


"giv does see ® gurvies avesegy 8 given, and a 
success return is given. shy. errors occur while reading the 
definition file, t Re ar koteah error message is given. 


CALLING SEQUENCE: 
AED_GETKEYINI () 


INPUT PARAMETERS: 
none 

IMPLICIT INPUTS: 
none 

OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 
none 


ROUTINE VALUE: 
1 if successful, logical name does not exist, or file does not exist 
error code otherwise 


SIDE EFFECTS: 
none 


BEGIN 

LOCAL 
KEVINI_FAB : SFAB_DECL, ! Key definition file FAB 
KEYINI_RAB : SRAB_DECL, ! Key definition file RAB 
KEYINI_NAM 3 “DECL, ! Key definition file NAM block 
KEVIN EXP_NAM : LOCK CNAMSC_MAXRSS], Expan nded name storage 
KEYINI_RES NAM LOCK nARBC MAXRSSJ us iene name storage 
DEF INE-LINE : VECTOR (51 ey YTE), Line tron de nition file 
TPARSE-BLOCK : SBBLOCK 18k K "EdhictH0}, Parser context block 
LINE_IRDEX, : Index into line read in 
LOCAC_STATUS; ' Local error status 


! Initialize the necessary RMS data structures. 
SFAB_INIT us = = yal. FAB, 
NA = : els C*ACLEDITS 


FNS = 
FOP = 


I Té1 Aft: :"), 
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NAM = KEVINI_NAM, 
ORG = SEQ 
REM = VARS; 
SN INIT ORNS ETHER yy 
3 e 
Ese = C_MAXRSS 
RSA = KEYINT_RES_NAM, 
RSS = NAMSC_MAXRSS); 
SRAB_INIT (RAB = KEYINT_RAB, 
FAB = KEYINI-FAB, 
RAC = SEQ); 


! Open the action definition file. If the open results in the RMS$_DEV error, 
it is assumed that the logical name does not bia F and success is returned. 
| kucsese ts" returned. "anyretnererrot Feaulte an the appreprate error message 
i being signaled, and the editing session terminated. ee . 


IF NOT SOPEN (FAB = KEYINI_FAB) 
THEN 


BEGIN 
IF .KEYINI_FABCFABSL_STS] EQL RMS$_DEV THEN RETURN 1; 
AED_FILERROR (AEDS_INIOPENIN, KEYINI_FAB, -KEVINI FAB 
IF .KEYINI FABCFABSL_STS] EQL RMSS_FNF THEN RETURN 1; 
RETURN .AED_L_WORSTERR; 


END; 
IF NOT SCONNECT (RAB = KEYINI_RAB) 


EFABSL=STVI5:; 


BEGIN 
AED_FILERROR (AEDS_INIOPENIN, KEYINI_FAB, TM ed apt te ee 
-KEYINI ~RABLRABSL—~STVJ5; 
RETURN .AED_L_WORSTERR; 
END; 
! Loo A eg the action definiti 
! with those from the definition f 
WHILE 1 
dO 


+ Pal replacing any default definition 


KEYINI_RAB RABSL UBF ] = DEFINE LINE; 
KEYINI-RABLRAB$W_USZ) = 512; 
F NOT"S$GET (RAB-= KEYINI_RAB) 


p 
RABERABSL STS] 
RABLRABSL-STVJ); 


BEGIN 
If .KEVINI_RABCRABSL_STS) EQL RMS$_EOF THEN EX 
AED_FILERROR (AEDS_IRIREADERR, KEYINI_FAB, . 


KE 
KE 
RETURN .AED_L_WORSTERR; 


KEY_ACTION = 0; 

KEYIFLAGS = 0; 
KEY-STRINGCDSC$W_LENGTH] = 0; 
IF .DEFINE_LINECO) NEQ '!° 
THEN 


ITLOO 
YINI_ 
VINI~ 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


; 
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3 
; 
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; 
g 
3 
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GIN 
ef INDEX 
uNTIC .LINE_INDEX GEQ .KEYINI_RABCRABSW_RSZ] 
BEGIN 
IF .DEFINE_LINEC.LINE_INDEX] EQL '<’ 
THEN 
BEGIN 
DO 
BEGIN 
LINE_INDEX = <LINE INDEX ¢ }; 
IF .DEFINE LINEC.LINE_INDEX] EQL ‘>* THEN EXITLOOP; 
IF LINE _IRDEX GEG .KEYINI_RABLRABSW_RSZJ 
EGIN 


IGNAL (AEDS_DEFSYNTAX, 2, sel wt at RABW Az). 
RETURN AEDS_DEF SYNTAX; x 


END 
UNTIL eLINE INDEX GEQ .KEYINI_RABCRABSW_RSZ); 


IF .DEFINE_LINEC.LINE INDEX} EQ. ts! 

AND .DEFINE_LINEL.LI NEL ed S LEQ 
THEN DEFINE “LINE LINE cINDE Lee EINE _LINEC.LINE_INDEX] = 32; 
LINE _IND EX = .LINE_ INDEX 


TPARSE "BLOCK TPASL_ COUNT} = TPASK_COUNTO; 
TPARSE -BLOCKETPASV-ABBREV) = 1; 


CK Vv KS = 3 
TPARSEBLOCKETPASL_STRINGCNT] = .KEYINI_RABLRABSW_RSZ); 
TPARSE_BLOCKCTPASL_STRINGPTR] = DEF INE_CINE; 


LOCAL STATUS = R ree rranee (TPARSE_BLOCK, KEYDEF_STATE, KEYDEF KEY); 
eLOCAL_STATUS 


BEGIN 
SIGNAL (AEDS_DEFSYNTAX, 2, BD has  | -BLOCKETPASL_S Ut be ok 


; TPARSE BLOCKLTPAS| STRINGPTR 
RETURN AEDS_DEFSYNTAX; 


RETURN 1; 


! End of routine AED_GETKEYINI 
TITLE AEDSDECODE 
IDENT \VOe-0008 
-PSECT _LIBSKEYIS,NOWRT, SHR, PIC,1 
00000 ; TPASKEYSTO 
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15-Sep-1 AX-11 Bliss-32 Vv 
aa 73 33 3§ ACLEDT.SR RETazSpe cose 6 B32;1 
ASCII \DEF INE\ 
00006 | rast 
BYTE -1 
00008 OTPASKEYS10 
0.11: A ike =O 
00008 ; TPASKEYS 
6.13: ASCII \goLD\ 
£800 -BYTE = 
” AMY ae ake 0 
00000 ; TPASKEYST 
0.19: ASCII \HELPY 
RE gipaswevsto . 
00012 ; TPASKEYST 
8 pasta ASCII \HELP_FORMAT\ 
ata ; TPASKEYSTO ‘ 


0. A: 
0001E sTBASKEYST 
0.31:  .ASCII 


BY 
b008e ; ; TRASKEYSTO 


0. 8 
0002C ; TPASKEYST 
0.37: ASCII 


ott BYT 
00 ; TPASKEYSTO 
U.41: BL 
00038 ; TPASKEYST 
U.43: .ASCI 
-BYTE 
$004 ; TPASKEYSTO 


0.47:  .BL 
00043 ; TPASKEYST 
, U-49: ASCII 


poe -BY 
0050 ; TPASKEYSTO 


00077 ; iPagKesT 


ott catncatah 


0 
\LOCATE_NEXT\ 


0 
WELETE ACN 


0 
WPOELETE_ACEN 


0 
NSELECT FIELD 


0 
\ADVANCE _FIELD\ 


0 
\DELETE_WORD\ 
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U.73: ASCII 
86088 sTPasKeVSyO 
00085 ;tpadxeve} 
0.79:  .ASCII 
$85 eat 
8096 ; TPASKEYSTO 


0.83: BLK 
00096 ; TPASKEYST 
, U-85: ASCII 


8 -BYT 
OOA6 ; TPASKEYSTO 
0.89: BL 
000A6 ; TPASKEYST 
v. ASCII 
0085 
et] 8 
08 sTPAsKEVSTO 
00087 ; TPASKEYST 
U.97: ASCII 
Ooa¢ -BYTE 
OOCA ; ig ies 


U B 
OOOCA ; TPASKEYST 
U.105: .ASCII 


00005 | : TPA KEVaT0 


G. 
00004  TPASKEYST 
0.109: ASCII 


BY 
B00D5 ; 3 TPA KEYSTO 


v. .B 
00000 ; TPA KEYST 
G.115: .ASCII 


SOGE -BYT 
O0E6 ; TPASKEYSTO 


. 3 of 
000E6 ; TPASKEYST 
e121: ASCII 


BOF, ; ei 


AX-11 Oi leg -32 V4.0 74g 
ACLEDT. Src} AEDDECODE. 852;1 


MPOELETE_NORN 


o 


\ADVANCE_POSITION\ 
“1 

0 
\BACKUP_POSITION\ 


0 

\DELETE_CHARACTER\ 
-1 

0 
\UNDELETE_CHARACTER\ 
-1 

0 

\MOVE _WORD\ 


0 
We EEN 


0 
ove Feu 


0 
WELETE_£GL\ 


0 
\INSERT_ACE\ 


0 
\SELECT_ITEM\ 


sungg™ 


4E 45 45 52 43 


49 S52 54 53 


48 


53 45 


54 45 


4E 


57 


52 


4&& 


52 


53 


53 


45 


57 


4F 


57 


45 


52 


46 


45 


45 


SF 


&§ 


ae 


52 


4F 


56 


4F 


45 


52 


43 


53 


52 


57 


52 


52 


52 


4F 


4c 


57 


52 


SF 


4] 


55 


43 


4F 


52 


4h 


52 


SF 


4F 


5F 


SF 


4E 


5F 


4F 


53 


52 


ah 


SF 


41 


54 


&e 


54 


4E 


4F 


52 


4g 


5F 


52 


5F 


54 


SF 


52 


SF 


55 


45 


49 


45 


56 


54 


41 


4E 


48 


54 


45 


45 


4F 


45 


53 


54 


45 


58 


SF 


57 


47 


46 


53 


56 


42 


52 


53 


4E 


52 


45 


50 


4F 


49 


45 


4E 
45 


4F 


55 


43 


45 


HSodeoctage 28:52:58 


00108 ; TPA KEYST 
U.139: i 


gor AL, kevéto © 
it 8 


00112 SEPA kevét 


6.145: ASCII 
$0132 AT ai 
00122 ; Uae 


O013e 
0012E 
O03? 1 
00137 


0141 
0142 


00142 


00140 
0014E 


0014E 


00158 
00159 


00159 ; $k EYST 


168 
O16A -BY 
0168 
00168 


8615 ; TPASKEYSTO 
00174 


ate 


OO18F t 


y 
roth ote 
0018F ; : 


AX-11 Bliss-32 V4.0-7 
ACLEDT. SRC JAEDDE CODE. 3 2;1 


\ENTER_ACE\ 


a) 


oem 


0 
ee cpateaten 


0 
\WP ARROW 


0 
\DOWN, ARROW 


0 
\RIGHT ARROW 


0 
\LEFT_ARROW\ 


0 
\INSERT_OVERSTRIKE\ 
-1 

0 

Weve Pa 


0 
\RUBOUT_WORD\ 


0 
\SCREEN_REFRESH\ 


pees 


song 


1 
) 


eng 
4C 4F 42 SF 54 55 4F 
45 46 49 4C SF 45 54 45 4C 45 
54 


4E 4F 49 53 53 45 53 SF 54 


45 54 43 41 52 41 48 43 SF 54 55 4F 


aS 
4C 4F 52 54 


45 50 41 


42 


Sh 


49 


49 


.Y4 


4c 


SE 


43 


49 


55 


Se 


58 


55 


55 


53 


4F 


4 


53 


53 


iFodeoctone 28:52:59 


S195 sroaperit 


0019 vibascevst 


7 veel : ,ASCII 


y 

Oia gTBASE KEVSTO 
00148 atba kevet 
gig 185 — “BY 
186 ; TPASKEYS10 
U.221: a 


ASCII 
TE 
8 


U. -BLKB 
 TPASKEYST 
0.229: .ASCII 


001¢7 Y 
§01¢8 gTBASK KEVSTO 
001¢8  TPASK ever’ 
.235: .ASCII 
0107 
0108 BYTE 
00109 gTBASKEVEILL 
001DA ; ; TPASKEYSTO 


0. 8 
001DA : TPASKEYST 
0.244: “feels 


OO1DD ; : TPASKEVF ILL 
v. -BYT 
001DE ;TPA KEYSTO 
0.24 -BLKB 
001DE TTPASKEYST 
251: ASCII 


-BYTE 
OOlES ; ieee 


00188 


ce 


001E3 TTPA evil 
25 ASCII 


OOlES ; aTeageersto 


OO1EB ;TPA Rave? 
0.26 ASCII 


pore) -BYT 
O1F2 aes KEYSTO 
001F2 ; TPASKEYST 


272: ttt 
001F5 -BYTE 


AX-11 Biles =32 V4.0-74 
ACLEDT. Src} AEDDECODE .852;1 


NJESSION_AESEN\ 


\RUBOUT_B0L\ 


0 
WPOCe ere LINEN 


0 
_ 


0 
hack seamen 


0 
\RUBOUT_CHARACTER\ 


he saa 


0 
eran 


0 
wearer 


0 
\gSIN 


me seid antes 


sea 


54 55 4F 


33 53 «53 


42 55 52 


52 4F 


11F2 
0000+ 
0500 


11F2 
0000* 
6101 
00000000* 
00000001 
6102 
00000000* 
00000002 
6103 
00000000* 
00000003 
6104 


1 
18-sep-1984 37:5 AX-11 Bliss-32 V4 
14- ~300n 138% 99:85:38 ACLEDT.SRC REIA AEDDE 
OO1F6 ;TPA KEYSTO 
U.277: .BLKB 0 
001F6 rar KEYST 
6.27 : ASCII \SS3\ 
001F9 -BYTE =1 
OO1FA ; AS he KEYSTO 0 
OO1FA US ASKEYS? 
U.286: .ASCII \RUBOUT\ 
ppg a0 -—BYTE -=1 
00201 : TPASKEYF ILL 
U.291: .BYTE -1 
00202 ; TPASKEYSTO 
U.296: .BLKB 0 
— joa ASCII \OR\ 
00204 8B -1 
00205 ; TPASKEYFILL 
s OSS -1 
-PSECT _LIBSSTATES,NOWRT, SHR, 
00000 sehen att} > 
00000 SWALLOW_1: - 0 
00000 ; TPASTYPE 
U.2: WORD 4594 
_— gignetance SWALLOW_1-U.3>=2 
3: r < L -U.3>-2> 
00004 ; TPASTYPE ss 
U.7: WORD 1280 
00006 SWALLOW_2: 
BLKB 0 
00006 ; TPASTYPE 
U.9: - WORD 4594 
00008 ; TPASTARGET 
U.10: WORD <<SWALLOW_2-U.10>-2> 
OOOOA ; TPASTYPE 
U.14: ~ WORD 24833 
Q0O000C ; TPASADDR 
U.15: _.LONG <<KEY_ACTION-U.15>-4> 
00010 ; TPASMASK 
U.16: ~ LONG 1 
00014 ; TPASTYPE 
U.20: -WORD 24834 
00016 ; TPASADDR 
U.21: ~LONG <<KEY_ACTION-U.21>=4> 
OOO1A ; TPASMASK 
U.22: -LONG 2 
QOO1E ; TPASTYPE 
U.26: -WORD 24835 
eee — LONG <<KEY_ACTION-U.27>-4 
e2?: < “U.27>-4> 
00024 ; TPASMAS 
U.28: .LONG 
00028 ; TPASTYPE 


.0-74 
CODE .852;1 


PIC,1 


EEE eed 


0 >Re Ooms — concen 


| AEDSDECODE 1$-sep-1986 23:37:5 AX-11 Bliss-32 V 
| 
vt=bbo 14-Sep 5-19 3B 7 Bo: 38 ACLED pres eSAEDDLCODE. yf 2;1 
U.32: «WORD 24836 
| gnegeE Oe é BE SADOR NG <<KEY_ACTION-U.33>-4 
° : e @U.55>-4> 
00000004 0002E Wa auaeg wee wg 
6105 00032 ta" ri Om 24837 
| Sipe nat 6 epee ons <<KEY_ACTION-U. 395-4 
© : . -U. >-4> 
00000005 00038 ; TPASMASK o 
U.40: eLONG 5 
6106 0003C¢ ZIPASTYPE osg3e 
ee ieee Lon <KEY_ACTION-U.45>=-4 
| < = “U.45>-4> 
00000006 00042 ; TPASMASK 
U.46: -LONG 6 
6107 00046 ;TPASTYPE 
U.50: .WORD 24839 
piece tgs AC reget KEY_ACTION-U.51>=4 
‘ Teer << “U.51>-4> 
00000007 0004C ; TPASMASK 
U.52: -LONG 7 
6108 00050 ;TPASTYPE 
U.56: .WORD 24840 
00000000* 00052 ;TPASADDR 
00000008 00056 ; TPASMASK 
U.58: -LONG 8 
6109 OO05A ; TPASTYPE 
U.62: .WORD 24841 
00000000* 0005C ; TPASADDR 
U.63: _.LONG <<KEY_ACTION-U.63>-4> 
00000009 00060 ; TPASMASK 
U.64: -LONG 9 
610A 00064 ; TPASTYPE 
U.68: eWORD 24842 
00000000* 00066 ; TPASADDR 
U.69: .LONG <<KEY_ACTION-U.69>-4> 
OOO00000A O0006A ; TPASMASK 
U.70: _.LONG 10 
610B OO06E ; TPASTYPE 
U.74: -WORD 24843 
00000000* 00070 ; TPASADDR 
U.75: _.LONG <<KEY_ACTION-U.75>-4> 
0000000B 00074 ; TPASMASK 
U.76: -LONG 11 
610C 00078 ; TPASTYPE 
U.80: -WORD 24844 
00000000* O007A ; TPASADDR 
U.81: .LONG <<KEY_ACTION-U.81>-4> 
0000000C OO07E ; TPASMASK 
U.82: _.LONG 12 
610D 00082 ; TPASTYPE 
U.86: -WORD 24845 
00000000* 00084 ; TPASADDR 
U.87:  .LONG <<KEY_ACTION-U.87>-4> 


po 


a eeme 


0000000E 
6106 
00000006« 
00000010 
610F 
00000000* 
00000011 
6110 
00000000* 
00000012 
6111 
00000000* 
00000013 
6112 
00000000* 
00000014 
6113 
00000000* 
00000015 
6114 
00000000* 
00000016 
6115 
00000000* 
00000017 
6116 
00000000* 
00000018 
6117 


00088 ; TPASMASK 


U.88: P 
0008¢ EtBASTYPE | 
0008€ ZIBASADDR 
00092 ZTBASMASK 
00096 ; TPASTYPE 

U. 98: WORD 
00098 AIBASADOR 
0009¢ ; TPASMASK 


OO0AO Sipaeivpeen® 


LONG 


— P 
U.104: .WORD 
QOOA2 ; TPASADDR 
U.105: .LONG 
OOOA6 ; TPASMASK 
U.106: .LONG 
OOOAA ; TPASTYPE 
U.110: .WORD 
QOOAC ; TPASADDR 
U.111: .LONG 
OOO0BO ; TPASMASK 
U.112: .LONG 
000B4 ; TPASTYPE 
U.116: .WORD 
000B6 ; TPASADDR 
U.117: LONG 
OOOBA ;TPASMASK. 
U.118: .LONG 
QOOBE ; TPASTYPE 
U.122:  .WORD 
OOOCO ; TPASADDR 
U.123: .LONG 
000C4 ; TPASMASK 
U.124: .LONG 
000C8 ; TPASTYPE 
U.128: .WORD 
OOOCA ; TPASADDR 
U.129: .LONG 
OOOCE ; TPASMAS 
U.130: .LONG 
00002 ; TPASTYP 
U.134: . WORD 
00004 ; TPASADDR 
U.135: .LONG 
000D8 ; TPASMASK 
U.136: .LONG 
OOODC ; TPASTYPE 
U.140: .WORD 
OQOODE ; TPASADDR 
U.141: LONG 
000E2 OAT ne 
U.142: .LONG 
OOOE6 ; TPASTYPE 


13-sep-1986 25:57:5 


§ AX-11 

é ACLED brs 
14 

24846 


SRETacbpE Cone 692;1 


<<KEY_ACTION=U.93>=4> 


16 
24847 


<<KEY_ACTION-U.99>=4> 


17 
24848 


<<KEY_ACTION=U.105>=4> 


18 
24849 


<<KEY_ACTION-U.111>=4> 


19 
24850 


<<KEY_ACTION-U.117>=4> 


20 
24851 


<<KEY_ACTION-U.123>=4> 


21 
24852 


<<KEY_ACTION-U.129>=4> 


22 
24853 


<<KEY_ACTION-U.135>=4> 


23 
24854 


<<KEY_ACTION-U.141>=4> 


24 


00000000+ 
00000019 
6118 
00000000* 
QO000001A 
6119 
00000000* 
00000018 
611A 
00000000* 
0000001C 
6118 
00000000* 
0000001D 
611C 
00000000* 
QO00001E 
611D 
00000000* 
0000001F 
611E 
00000000* 
00000021 
611F 
00000000* 
00000022 
6120 
00000000* 


ISoseoctone 28:52:58 


WORD 
000E8 “ipagiook 
LONG 


OOOEC ; TPA MASK 
LONG 


000FO teast Typé 
OOOF2 ;TPA ADDR 
2153: _.LONG 


So: S 
a 


rn 


OO0F6 ; TPASMASK 
U.154: .LONG 
OOOFA ot) Hee 
U.158: .WORD 
OOOFC ane 
u 159: .LONG 
00100 ; TPASMASK 
U. 160: .LONG 
00104 ; TPASTYPE 
U.164: .WORD 
00106 ; TPASADDR 
U.165: .LONG 
0010A ; TPASMASK 
U.166: .LONG 
QOO10E ; TPASTYPE 
U.170: .WORD 
00110 ; TPASADDR 
U.171: .LONG 
00114 ; TPASMASK 
U.172:  .LONG 
00118 ; TPASTYPE 
U.176: .WORD 
OO11A ; TPASADDR 
U.177: .LONG 
OO11E ; TPASMAS 
U.178: .LONG 
00122 ; TPASTYP 
U.182:  .WORD 
00124 ; TPASADDR 
U.183: .LONG 
00128 ; TPASMASK 
U.184: .LONG 
0012C ; TPASTYPE 
U.188: .WORD 
0012E jTPASADOR 
U.189: .LONG 
00132 ; TPASMASK 
U.190: .LONG 
00136 ; TPASTYPE 
U.194: .WORD 
00138 ; TPASADDR 
U.195: .LONG 
0013C ; TPASMASK 
U.196: .LONG 
00140 ; TPASTYPE 
U.200: .WORD 
00142 ; TPASADDR 
U.201: .LONG 


24855 


<<KEY_ACTION@U.147>=4> 


25 
24856 


<<KEY_ACTION-U.153>=4> 


26 
24857 


<<KEY_ACTION“U.159>=4> 


27 
24858 


<<KEY_ACTION=U. 165>=4> 


28 
24859 


<<KEY_ACTION-U.171>-4> 


29 
24860 


<<KEY_ACTION-U.177>=4> 


30 
24861 


<<KEY_ACTION-U.183>-4> 


31 
24862 


<<KEY_ACTION-U.189>=4> 


33 
24863 


<<KEY_ACTION-U.195>=4> 


34 
24864 


<<KEY_ACTION-U.201>=4> 


00000025 
6121 
00000000* 
00000026 
6122 
00000000* 
00000023 
6123 
00000000* 
00000024 
6124 


* 00000000* 


00000027 
6125 
00000000* 
00000028 
6526 
00000000* 
00000029 


11F2 
0000+ 
0527 


11F2 

0000* 

6128 
00000000* 
00000004 


AX-11 at -32 V4.0-7 
ACLEDT. sRel AEDDECODE. : 2;1 


LONG <<KEY_ACTION-U.207>-4> 


zLone <<KEY_ACTION-U.213>-4> 


«LONG <<KEY_ACTION“U.219>-4> 


«LONG <<KEY_ACTION-U.225>-4> 


.LONG <<KEY_ACTION-U.231>=4> 


«LONG <<KEY_ACTION-U.237>-4> 


<<SWALLOW_3-U.241>-2> 


.WORD  <<KEY_DEF INE-U. 248>=2> 


LONG <<KEY_FLAGS-U.253>=-4> 


os 

15-Sep-1 3: 

14-Sep-19 1382 7 a 38 
00146 ; TPASMASK 

U.202: ,LONG 37 
0014A ; TPASTYPE 

U.206: .WORD 24865 
0014C ; TPASADDR 

U.207: 
0018 ORT LONG 38 
00154 ; TPASTYPE 

U.212: .WORD 24866 
00156 A DR 
0015A ; TPASMAS 

U.214: .LONG 35 
001SE ; TPASTYPE 

U.218: .WORD 24867 
00160 ; TPASADDR 

U.219: 
00164 ; TPASMASK 

U.220: .LONG 36 
00168 ; TPASTYPE 

U.224: .WORD 24868 
O016A ; TPASADDR 
, U.225: 
O0016E ; TPASMASK 

U.226: .LONG 39 
00172 ; TPASTYPE 

U.230: .WORD 24869 
00174 ; TPASADDR 

U.231: 
00178 ; TPASMASK 

U.232: .LONG 40 
0017C ; TPASTYPE 

U.236: .WORD 25894 
0017E ; TPASADDR 

U.237: 
00182 ; TPASMASK 

U.238: LONG 41 
00186 SWALLOW_3: 

-BLKB O 

00186 ; TPASTYPE 

U.240: .WORD 4594 
00188 ; TPASTARGET 

U.241: . 
0018A Mh 

U.245: . 1319 
0018C KEY_DEFINE: 

-BLKB C 

0018C s TOAST YPE 

U.247: WORD 4594 
OO18E ; ba 

U.248: 
_ i.38 PE ORD 24872 
00192 ; i! eae ADDR : 
00196 ; TPASM MASK 


= at 


Page a 


Poke Bee ; 
AEDSDE CODE 1$-se “19 AX=11 Bliss-32 V4.0-74 P 8 
‘¥Oe=000 | VanSep-198e 11:52: i ACLEDT. SRC JAEDDE CODE .B32;1 ave 
U.254: _, LONG | 
7129 O019A AtBASTVPE aoe 
eg oe StF ong <<KEY_FLAGS“U.259>=4 
7 : . "VU. >-4> 
00000008 001A0 ; TPASMASK ss 
U.260: .LONG 8 
0000* O01A4 ; TPASTARGET | 
U.262: WORD <<U.261-U.262>-2> | 
712A OO1A6 ; TPASTYP | 
0.266: .WORD 28970 | 
00000000" 0018 ; TBASADDR 
U.267: .LONG <<KEY_FLAGS-U.267>-4> 
00000010 001AC ; TPASHASK | 
0.268: .LONG 16 
0000* 00180 ; TPASTARGET | 
U.269: .WORD <<U.261-U.269>-2> 
7128 00162 ; TPASTYPE | 
0.273: .WORD 28971 | 
00000000* 00184 ;TPASADDR 
0.274: .LONG <<KEY_FLAGS-U.274>=4> | 
00000001 00188 ; TPASMASK | 
0.275: .LONG 1 
0000* 001BC ; TPASTARGET | 
0.276: .WORD <<U.261-U.276>-2> | 
712C O01BE ; TPASTYPE | 
0.280: .WORD 28972 
00000000* 001CO ;TPASADDR | 
U.281: .LONG <<KEY_FLAGS-U.281>=4> | 
00000002 001¢4 ; TPASMASK 
0.282: .LONG 2 | 
0000* 001C8 ; TPASTARGET | 
U.283: .WORD <<U.261-U.283>-2> 
812D OO1CA ; TPASTYPE | 
0.287: .WORD  -32467 
00000000v 001CC ;TPASACTION 
0.288: .LONG <<SET_RUBOUT-U.288>-4> 
15F7 001D0 ; TPASTYPE 
0.289: .wo 5623 | 
FFFE 00102 ; TPASTARGET 
U.evu: . -2 
001D4 CHECK_END ; 
11F2 00104 ; TPASTYPE 
0.292: . 4594 
0000* 001D6 ; TPASTARGET 
0.293: .WORD <<CHECK_END-U.293>-2> 
102C 00108 ; TPASTYPE 
0.294: .WORD 4140 
0000* 001DA s TBASTARGET 
0.295: .WORD <<KEY_DEFINE-U.295>-2> 
912E 001DC ; TPASTYPE 
0.299: .WORD -28370 
00000000v 001DE ; TPASACTION 
U.300: .LONG <<SET_DEFINITION-U.300>-4> : 
0000* 001E2 ; TPASTARGET 
U.301: .WORD <<KEY_DEFINE-U.301>-2> : 
| 


— SC Se 


) 


H 1 
AEDSDE CODE 15-Sep- 13 4 AX-11 Bliss-32 v4. Pa 9 
W60=000 14-Sep-1 t Hi HS 3§ ACLEDT.SRCJAEDDECO CODE. 5 2;1 - (| 
95F7 OO1E4 "86 “‘ 27145 
ering eect § 30 rae <<SET_DEF INITION-U.303>-4 | 
2 $ 6 -U. >-4> ; 
FFFF OO1TEA ; TPASTARGET 7, 
U.304: .WORD -1 
OO1EC A Ol 0 
11F2 OOTEC ; TPASTYPE 
U.306: .WORD 4594 
ee abies 30 gece U.261-U.307>-2 
.307: . <<U.261-U. 307>-2> 
042C OO1FO ; TPASTYPE 
U.308: .WORD 1068 
O01F2 SWALLOW. Lah 
11F2 OO1F2 ; TPASTYPE 
U.309: .WORD 4594 
0000* OO1F4 ; TPASTARGET 
U.310: .WORD <<SWALLOW_4-U.310>-2> 
5DF8 OO1F6 ; TPASTYPE 
U.311: WORD 24056 
pge Seocate: AAS tee oe U.312-U.313>-2 
. | or <<U.312-U. 313>-2> 
00000000* OO1FA ;TPASADDR 
U.314: .LONG <<KEY_STRING“U.314>-4> 
0000* OO1FE ; TPASTARGET 
U.315: WORD <<CHECK_END-U.315>-2> 
00200 ey STRING 
U.312: .BLKB 0 
19F8 00200 ; TPASTYPE 
U.316: .WORD 6648 
animes 6 ee ee 
. : . . -U. >-2> 
0000* 00204 ; TPASTARGET 
U.319: .WORD <<U.312-U.319>-2> 
15F6 00206 ; TPASTYPE 
03603 «WORD 5622 
FFFF 00208 ; TPASTARGET 
U.321: .WORD -<-1 
0020A ; CHECK _DELIM 
U.317: .BLKB 0 
102C O020A ; TPASTYPE 
U.322:  .WORD 4140 
FFFE 0020C Nas Hee 
U.323: .WORD -2 
1020 O020E ; TPASTYPE 
U.324: .WORD 4128 
FFFE 00210 ; TPASTARGET 
U.325: .WORD <-2 
11F7 00212 ; TPASTYPE 
U.326: .WORD 4599 
FFFE 00214 i, Ser: 
U 327: .WOR -2 
15ED 00216 ; Ms Mae 
U. 32 WORD 5613 
FFFF 00218 ; TPASTARGET 


} 


seegecone 


0000* 
0000+ 
0000+ 
0000+ 
0000+ 
0000+ 
0000* 
0000* 
0000+ 
0000* 
0000* 
0000+ 
0000* 
0000* 
0000* 
0000* 
0000+ 
0000+ 
0000* 
0000* 
0000+ 
0000+ 
0000* 
0000* 
0000* 


14 ratty pres 

U.329: .WORD =1 

-PSECT _LIBSKEYO$,NOWRT, 

00000 KEYDEF KEY: 
00000 ; STPASKEYO™ 

G.1: | .BLKB 0 
00000 ; TPASKEY 

U.5: ~ WORD <U.4-U.1> 
_— ‘St ee <U.11-U.1> 
— jiASKeY inp pe a 
ne ine” on a2 ap 
00008 ;TPASKEY. : } 

0.30:  .WORD <U.29-U.1> 
QOO0A ; TPASKE 

U.36: »WORD <U.35-U.1> 
0000C ; TPASKEY 

U.42:  .WORD <U.41-U.1> 
QOOO0E ; TPASKEY 

0.48:  .WORD <U.47-U.1> 
— Nd pe WORD <U.53-U.1 

J Hy — . io oO > 

00012 ; TPASKEY 

0.60:  .WORD <U.59-U.1> 
00014 ; TPASKEY 

0.66:  .WORD <U.65-U.1> 
00016 ; TPASKE 

U.72:  .WORD <U.71-U.1> 
00018 ; TPASKEY 

U.78: ~ WORD <U.77-U.1> 
OVOIA ; TPASKEY 

0.84:  .WORD <U.83-U.1> 
QOO1C ; TPASKEY 

0.90:  .WORD <U.89-U.1> 
mind XH Eee 
00020 ; TPASKEY. ; : 

U.102: .WORD <U.101-U.1> 
ened wee eee 
00024 ;TPASKEY : ; 

U.114: .WORD <U.113-U.1> 
00026 ; TPASKEY 

0.120: .WORD <U.119-U.1> 
00028 ; TPASKEY 

0.126: .WORD <U.125-U.1> 
0002A ; TPASKEY 

U.132: .WORD <U.131-U.1> 
ened %\' nae 
— jIPASKEY ay aoa ge 
00030 ; TPASKEY. : ‘ 


i} 


tbeseontome 28:57:58 yan 


Reda 


-32 V 
Sazboee 


SHR, 


cape. 7382; :1 


PIC,1 


roe i) 


-————— 


sue 


ere ae SL sss 


0000+ 
0000+ 
0000+ 
0000+ 
0000+ 
000C* 
0000* 
0000+ 
0000* 
0000* 
0000* 
0000* 
0000+ 
0000* 
0000+ 
0000* 
0000+ 
0000+ 
0000+ 
0000* 
0000+ 
0000* 


ACLEDT.SRC AEDDECODE. 3 231 


1 
-Sep- Ax-11 B 
bofepm19ge 28:57:56 
U.150: WORD <U.149-U.1> 
ante angen WORD <U.155-U.1> 
sais ite rvs WORD <U.161-U.1 
° 3. 4 . “U.1> 
— ite ris WORD <U.167-U.1 
oo mS . “U.1> 
00038 ; TPASKEY 
U.174: . WORD <U.173-U.1> 
eel 4) ye eee 
° = ° -“U.1> 
BOO Tere won @y.185-U. 19 
OOO3E ; TPASKEY 
OTe: eWORD <U.191-U.1> 
00040 ; TPASKEY 
U.198: .WORD <U.197-U.1> 
00042 ; TPASKEY 
U.206: .WORD <U.203-U.1> 
00044 ; TPASKEY 
U.210: .WORD <U.209-U.1> 
00046 ; TPASKEY 
U.216: .WORD <U.215-U.1> 
00048 ; TPASKEY 
U.222: .WORD <U.221-U.1> 
O004A ; TPASKEY 
U.228: .WORD <U.227-U.1> 
0004C ; TPASKEY 
U.234: .WORD  <U.233-U.1> 
OO04GE ; TPASKEY 
U.243: .WORD <U.242-U.1> 
00050 ; TPASKEY 
0.630: WORD <U.249-U.1> 
00052 ;TPASKEY 
U.256: .WORD <U.255-U.1> 
00054 ;TPASKEY 
U.264: .WORD <U.263-U.1> 
00056 ; TPASKEY 
U.271: . WORD <U.270-U.1> 
00058 ; TPASKEY 
U.278: .WORD <U.277-U.1> 
OOOSA ; TPASKEY 
U.285: .WORD <U,284-U.1> 
OOOSC ; TPASKEY 
U.297: .WORD <U.296-U.1> 
-PSECT 


00000 AED_L oF LASS 
00004 AED_B -oPiTONS: 


-BLKB 
$0008 AED_L -OBITYP: 
Q000C AED_Q_OBJNAM: 

-BLKB 


Bliss-32 v4.0 


AED_COMMON,NOEXE, OVR,0 


or, w £ 


row | 


—_ 


AED ODE ise 1 3:37:5 AX-11 Bliss-32 V4.0-7 Pa 2 
v0e-000 122800-1984 $9 33333 ACLEDT. SRCJAEDDECODE. 3 2:1 = aS 
00014 AED_L_WORSTERR: | 
00018 AED_L_PAGEWIDTH: 
-BLKB 
0001C AED_L_PAGESIZE: 
-BLKB 
00020 AED_B8_ COLUMN: 
-BLKB 


80 34 AED_B net ee 
$6038 AED_B_ save COL: 
one -BCKB 


-BLKB 
0002C AED_B_SAVE_LIN: 
-BCKB 


90020 “BLKB 
00030 AED_a WLIWETABLE:: 
| 


We owe wwe 


—~m 


LK 
00040 AED_L_FIRSTLINE: 
-BLKB 
00044 AED_L -LASTLINE: 
00048 AED_L aa ae 
0004C AED_W_INPUTLEN: 
-BLKB 


0004 -BLKB 
00050 AED_Q_DEL_ACE: 


LKB 
00058 AED_Q_DEL LINE: 
00060 AED_Q_DEL reg 
00068 AED_B_DEL_ CHAR: 
-BLKB 


00069 -BLKB 
0006C AED_A_ACLBUFFER: 


-BLK 
00070 AED_Q_OUTLINE: 
-BLKB 
00078 AED_W_OBJCHAN: 
-BLKB 


007A “BLKB 
0007C AED_W_TERMIN: 
-BLKB 


007 “BLKB 
008 AED_W_TERMOUT 


LK 
606 -BLKB 
0084 AED_W_10SB: 
-BLKB 
0008C AED_L_STATUS: 
-BLKB 


} 

| 

| BLK 
0003C AED_L_CURACE: 

| 

! 


> @o mn KN wR @ FS W— © © @ RM FS BF HE SH 


- 


_AgDSpECODE tSeseo-1986 25:57:58 yay}? Liege 52 v4. 0-742. 
00090 AED_B oF IEL Os 


80084 AED_W _FIELDBEG: 


2009 ey it 


494 BLKB 
009 AED _B_ re: 


200% ey ibe. 


mn we FOR ROT Ww foOT fF OU 


| 
| 
! 
| -BLKB 
000A2 -BLKB 
O00A4 AED_W ~TTEMEND : 
S08 ae.o acti 
OOA8 AED_B -ACETYPE: 
00049 “BL KB 
OOAC AED_W JOURNAL : 
pp n -BLKB 
0080 AED_T_CURLINE: 
-—BLKB 532 
002C4 AED_w -TOTALSIZE: 
002C6 -BLKB g 
002C8 JOURNAL _FAB: 80 
00318 JOURNAL _NAM: 
.BLKB (96 
00378 JOURNAL _RAB: i 
003BC JOURNAL_XABPRO: es 
00414 JOURNAL_BUFFER: 
-BLKB 10 
Boe ts -BLKB 2 
0420 JOURNAL INDEX: : 
00424 RECOVER_FAB: 
-BLKB 80 
00474 RECOVER_NAM: 
.BLKB 96 
004D4 RECOVER_RAB: 
.BLKB 68 
00518 RECOVER_BUFFER: id 
90532 “BLKB 2 
0524 RECOVER_INDEX: 
-BLKB 4 


-PSECT SPLITS,NOWRT ,NOEXE ,2 
00 00 3A 54 49 4E 49 26 54 49 44 45 4C 43 41 00000 P.AAA: .ASCII \ACLEDITSINIT:\<0><0><0> 


Rive tae 15-Sep-1984 47585538 AT ese gaze tate “682.1 Page $5 
00 00008 ; 


.PSECT S$OWNS,NOEXE,2 
00000 KEY_BLOCK: 


| 
} 
i 3 
-BLKB 11 
90008 -BLKB 1 
O00C KEY_STRING: 
| -—BLKB 8 
KEY_ACTION= KEY BLOCK +8 
| KEY-FLAGS= KEY-BLOCK+10 
sEXTRN CLISGET™ VALUE » CLISPRESENT 
-EXTRN LIBSFREE_VM, T -v" 
-EXTRN LIBSTPARSE, * SCREDOUN CROLL 
EXTRN SCRSERASE LINE, SCRSERASE PAGE 
-EXTRN SCRSSET_CORSOR, SCRSSET_ SCROLL 
-EXTRN SCRSUP_SCROLL, AED$_OBJCOCKED 
-EXTRN AEDS$_BADKEEP, AEDS_ COCATERR 
-EXTRN AEDS_INIREADERR 
SEXTRN AED$~JO 
EXTRN AED$—JOUOPENOUT 
SEXTRN AEDS~ =JOUCLOs0UT 
-EXTRN AEDS-RECREADERR 
XTRN AEDS$™ =RECOPENIN AEDS. RECLOSEIN 
EXTRN AED$~BADUIC, AEDS _BA GRPMEM 
EXTRN AEDSTSYNTAK. EDS” eotiee 
-EXTRN AEDS“NOITEMS if EDS_MUSTENTER 
EXTRN AEDS-INIOPENIN, AED$~INICLOSIN 
EXTRN AEDS"DEFSYNTAX, AEDS$~NODELET 
SEXTRN AEDS-NOMODIFY $_ROHIDDE 
EXTRN AEDS-DUPLICATE, AEDS_NOCOMBINE 
*EXTRN AEDS“NODEF AUL ULT; AEDS~NOCTRLCHAR 
~EXTRN AEDS_NOTFQUN D, AED$_CONTROL_C 
-EXTRN AEDSACLUPDATED 
“EXTRN AEDS™ NOCHANCE. AED_F ILERROR 
*EXTRN AED -PUTOUTPUT AED“SET_CURSOR 
SEXTRN We OPEN 
*EXTRN Sys SScOMnecr. SYSSGET 
“EXTRN LIBS$SI 
.PSECT $CODES,NOWRT,2 | 
OFFC 00000 ENTRY AED, GETKEYINI, Save R2,R3,R4,R5,R6,R7,RB.— ; we 
B 000000006 00 9€ 9002 MOVAB Craasiee L, R11 : 
A 000000006 00 9€ 000 MOVAB SCRSERASE PAGE, R1 ; 
9 000000006 8F D 0019 MOVL #AEDS_INIOPENIN, R9 : 
b SSRHERSS BP S831; bth SACRE EL See ! 
56 000 * CF OF 6 3 MOVAB AED L WORSTERR, R6 : 
SE FAE 9E 0 A MOV -1304TSP 5? : 
0050 =s«aBF 00 bE 60 2c 00 F movcS #0, (se). “#0, #80, SRMS_PTR > 0704 
ne ee : 
C6 AD 2 90 iva MOVB SRMS PTR : 


— 


cscs LL LLL LL eeeeeeerreree_— —_—- --- _- i 


a 


1 
| -Sep- :37: AX-11 Bliss-32 V4.0-74 Page 25 
sae NESESMML FEAESEE MED Puddle", & 
* | 
| SRMS_PTR#29 Se: 
| CF OAD co 88 85 bobda GOVE o«#o SRNS PTRe | 
D8 AD 4445 CD oe eh povis KEYINI NAM, srs PTRes0 ; 
DC «OAD ~SC«OOO" CF ;AAA,SRAS PTR ; 
0060 8F 00 ce i zp 38 moves a}. Sans toh 156, SRMS_PTR ; 0709 
FFOC CD 006 : 
4578, SRMS_PTR : 
roc cp G00e fF go GHHEE nou, 578, SON : 
FFIh tC 224 E bo OVAB  KEVINI RES NAM, SRMS_PTR+4 
fis tb of gt iti NOVA eEeInh ERP NAM RMS_PTR+12 : 
0044  8F ac go ™ 2 Fee wove Re teee ao ek. SRMS PTR ; 0712 
FF6C CD OO8E ; 
mc UE toy arn ta : 
ABAD BO AD 9€ 0009B MOVAB KEYIRI_FAB, SRMS_PTR+60 po 
sn ae eH PUSHAB KEYINI~FAB 
000000006 00 1B 000K3 CALLS #1, SYSSOPEN 
ooorsscs $F es aD BT btbaD CPL KEVINI_FAB+8, #99526 : 0723 
7E os AR PB outa? MOVG -KEYINI_FAB+8, =(SP) ; 0726 
80 AD SF Ov0BB PUSHAB  KEYINI_FAB 
00006 ¢F 04 FB O00LD CALLS #4, AED_FILERROR pe 
00018292 &F BB AD DI G00CS CHL KEVINI_FAB*8, #98962 : 
: RW 23$ : 
croc td St Sooke oe; BUSHAB KEYINI_RAB ; 0729 
1 FB 00006 CALLS #1, YSSCONNECT : 
a 85 EB ob0DD BLES” RO. Pisa 
ot rF7% © @D «9D 900EO MOVO —«KEYINI_RAB+8, -(SP) 
BO AD 9F OOOES PUSHAB KEYINI~FAB 
a ee ae : 
FINE LINE, KEYINI_RAB+36 + 0743 
8 af e 80 GogF| - nov WBi2 REVINI_RAB#32 : Orde 
shes 6 +44 pore CALLS #1, SYSSGET : 
nee 5 g EB bo%b BLBS RO, 6$ oa 
cooreava «Ceres OORT OtIOE CHPL KEVINI_RABSB, #98938 : 0 
nets «Ot OR O119 MOVG —-KEYINI_RAB+8, -(SP) : 0749 
ee eat PUSHAB KEYINI~FAB 
000000806 SF bd 00118 PUSHL AEDS, TNIREADERR 
sect gh oS B0 b128 $3: HOWL AED_L_WORSTERR, RO ; 0751 
¢ 001 ; 0753 
RB KEY_ACTION 
wus: i SEER REY-FtAgs” i Of88 
og) eae Bt CMPB FINE_LINE, #33 : 0757 
ee eS: ene ae ae 
CMP2V #0, #16, KEYINI_RAB+34, LINE_INDEX ; 0761 
ad =” " BO FD Boze 8: BAY obs 


i 
———————————— aaa 


; 


2 
AEDSDE CODE 15-Sep-1984 23:37:5 AX-11 Bliss-32 V4.0-74 p 6 
052000 1279 08-198e $7335 238 ACLEDT. SRCJAEDDECODE .B 2:1 we J 
008 31 0143 BRW 17$ : 
3C 24 AEG f 0146 8$: CMP DEP INE LINECLINE, INDEX], #60 + 0764 | 
: BG 00140 98: INCL LINE INDEX ; 769 | 
3E 24 AES } 14F CMPB DEFINE LINECLINE_INDEX3, #62 : 0770) 
a3 be Oo1s6 Pet ORS 771, 
52 8E AD 10 00 FD 133 CMPZV 3 #16, KEYINI_RAB+34, LINE_INDEX : 
se Sih Rat ps 
OE EC Ab 0 pe 016¢ BBC Re AED_L_FLAGS, 10$ + 0775 
01 oD O16 PUSHL #1 : 
15 DD 00169 PUSHL 4 : 
6A 02 FB 00168 CALLS #2, SCRSERASE_PAGE : 
15 Db 00190 PuSHE #21 : | 
67 02 FB 00172 CALLS #3. SCRSSET_CURSOR : | 
24 OAL 3 00175 10$: | PUSHAB DEFINE_LINE : | 
7E 8E AD 3C 00178 MOVZWL KEVINI_RAB+34, -(SP) : | 
08 DD 0017C PUSHL # : 
58 DD OO017E PUSHL 8 : | 
6B 04 FB 00180 CALLS #4, LIBSSIGNAL : 
0B EC Ab 03 £1 00183 BBC #3, AED_L FLAGS, 11$ : 
7E OC <A6 9A 00188 MOVZBi AED_B_COLOMN, -(SP) 3 
soos Se eB og, ONE BPSMMEY clfed 7 
00000000« 8F 05 00195 11$: TSTL  #<AEDS_DEFSYNTAXE7> : | 
0098 i 00198 12$: BR” }3§ : | 
00000000" 8F 66 03 00 ED 0019E 18: CMPZV #0, #3, AED_L_WORSTERR, #<AEDS$_DEFSYNTAX&7> : 
aot HSI Ba! OE pas 
9£ 53 £9 OO1AC 14$:  BLBC R3, 9$ : 0779 | 
61 «BF 24 E42 91 OO1AE 15$: CMP DEF INE_LINECLINE_INDEX], #97 : ovat | 
7A BF 24 AEA? 71 00187 CMB DEFINE LINECLINE_INDEX2, #122 : 0782 
24 AE4G2 20 82 001BF SUBB2 #32, DEFINE_LINECLINE_INDEX] : 0783 
rds BG BRIGG 168: INCL GINE_INDEX ore 
a ff A Ri: Fi, a ius noe : Ss 
08 AE 8E AD if 00100 MOVZWL KEVINI RAB? 34 TPARSE_BLOCK+8 > 0789 | 
OC AE 34 AE 9E 99105 VAB_  DEFINE~LINE, fPARSE_BCOCK+12 : 0790 | 
0000" CF 9F OO1DA PUSHAB KEYDEF ~KEY : 0792 | 
0000" CF 9F OO1DE PUSHAB KEYDEF “STAT : 
08 AE OF nie? PUSHAB TPARSE~BLOCK ; | 
seer 85 BB odlee ST Meri oe 
ees 59 OlEF BLBC OCAL_STATUS, 18$ > 0793 | 
0€ EC Ab 03 €1 SES 18$: BBC #3, AED_L_FLAGS, 19% : 0797 | 
01 DD OO1FA PUSHL #1 : 
15 DD OO1FC PUSHL #21 : 
6A 02 FB OO1FE CALLS #2, SCRSERASE_PAGE : 
DD 0201 PUSHL # : 
15 DD 00203 PUSHL #21 3 


2 
AED ODE 1$-s6p -1984 AxX-11 Blis Page 27 
nares 14-Sep aet 73 35 a ACLEDT. SRC at Soe ope B82; :1 . (3 
67 02 FB CALLS SCRSSET CURSOR 
oc AE DD A 19$:  PUSHL ¥e saSt Rie 
€ AE DD B PUSHL TPARSE “Bt etka 
DD PUSHL @# 
DD 0021 PUSHL R 
4 Fe 1 CALLS , LIBSSIGNAL 
0B EC A6 03 f 1 BBC 43 AED_L FLAGS, 20$ 
7E o¢ A6 9A OOCTA MOVZ AE _B_COLOMN, =< 
ze ag 9A 0021 MOVZBL AED B-LINE = (SB) 
é 02 FB 00 CALLS “STRSSET_C 
00000000* 8F p 0 3 20S: iste 1 pigaheretab 
00000000* &F rx 03 09 ED 09 D CMP ZV #3, AED_L_WORSTERR, #<AED$_DEFSYNTAX&7> 
66 58 DO 00238 318: MOVL 8, AED_L_WORSTERR 
50 58 DO 00238 22$:  MOVL  R8. RO 
04 0023E RET 
50 01 DO 0023F 238 MOVL #1, RO 
04 00242 RET 


; Routine Size: 579 bytes, Routine Base: SCODE$ + 0000 


Bete Se Se Se Fe Se Be Be Ge Fe Fe Fe Ge Be Se Fe Ge Se 


2 
Baseo-1986 25:57:58 YANII BLieg=32 4-0-7462, age 28 


ROUTINE SET_RUBOUT = 
lee 
‘ 

FUNCTIONAL DESCRIPTION: 


This routine sets up the string descriptor to point to a single 
rubout character. 


CALLING SEQUENCE: 
SET_RUBOUT () 


INPUT PARAMETERS: 
none 


SRIF 


BAIRD IID RII tt st tt ts ss ss bs ss 2s 2s 9 _ _s — 2 - 2 -s - 


IMPLICIT INPUTS: 
none 

OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 


KEY_STRING: descriptor to action defining string 
ROUT a VALUE : 


WN $9 OONOVE WN “OC OENOUNE WO 


WAAL APO POPOPONPUNPYNPINININY 2 OP? OO? OO Oe ws 


SIDE EFFECTS: 
none 


ae 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
ico 
BEGIN 


KEY_STRING(DSC 
KEY~STRINGLDSC 


RETURN 1; 
END; = ! End of routine SET_RUBOUT 


Gd Od OD OD OD OD GD OD GD GD OD OD OD CP CD CD OD CD OD CD Od OD 00 OD CD CD CD CD GD CD CD CD CD CD 


Peete 


MFWN-—O0® 


$W_LENGTH] = 1; 
SATPOINTER] = UPLIT BYTE (ZCHAR (2X°7F")); 


OOOCCOCOOCOOOCOSOSOOSCCOOOCOCOCOCOOOOOCOOOOOOOOCOOOOCoOO 


SRRANLSSSLEALAN AS 


REFEE 


-PSECT SPLITS,NOWRT ,NOEXE ,2 
7F 00010 P.AAB: .ASCII <127> : 


.PSECT $CODES,NOWRT,2 
0000 00000 SET_RUBOUT: 
WORD 


° Save nothin 
9000" CF 01 B0 900 MOVW #1, KEY STRING 
00" CF 0000' cf 3 abe MOVAB P.AAB, REY_STRING+4 
01 


mOvL wi, -RO 


0 


Pree eeeee 
fofolelelq) 


: 
aEDsDE CODE 1S-sep-1994 25:57:58 yanet! Olise=52 v4.0-742, Page 20 


; Routine Size: 18 bytes, Routine Base: SCODES + 0243 


38 
: 


Pere Pee NN thy eh Nae ae eee ae mrs 
WVWEWN 9 OBNOUE WN —“OOOBNOUSWN— 


, ak ak et ee ee ee ee ee ee ek ee ee ek ek ee et et et et nt ot pt pt at pt et pt pt ed 


“39 


segs 


ooo 
00 Co: 


02.00 0D CD: 
PIPPI 


WN OOS NAUE WOOO 


Seeeseees 


PEPIN PIMIPIPIAIPIPIPIAIA[IAIPIAIPIIPRI|I IAI a a i ed ed ed od dd 
* 


LESS 


OOOOCOCOCCOOCOCSoO 


C2 Co: 
~~~ 
Fun —OC0O@ 


2 


sone 2:37:58 


1-5 
14-$ ACLEDT. SRC JAEDDECODE 


ROUTINE SET_DEFINITION = 
tee 
' 


: FUNCTIONAL DESCRIPTION: 


oe routine replaces a default definition with one from the 
action definition file. 


i CALLING SEQUENCE: 
i SET_DEFINITION () 


! 
' 
' 
' 
' 
' 
! INPUT PARAMETERS: 

: none 

1 

! IMPLICIT INPUTS: 

: KEY_ACTION: ACL editor action code 

; KEY_FLAGS: flags associated with the key definition 

: KEY_STRING: descriptor of the string that defines a key 
] 

' 

! 

' 

] 

' 

' 

i 

3 

7 

' 

! 

' 


i OUTPUT PARAMETERS: 
none 

i IMPLICIT OUTPUTS: 
none 

i ROUTINE VALUE : 


i SIDE EFFECTS: 
° The definition table is updated to reflect the new key definition. 


BEGIN 
LITERAL 
CHAR_CSI = %x'9B', ! C1 CSI character 
CHAR_CSI_1 = 2x'1B', ' ¢O CSI 
CHAR_CSI1_2 = %x'5B", ; ¢9 ivalent 
CHAR_SS = 2x'8F', ; €1 $ 3 character 
CHAR7SS3_1 = %X'1B", i CO SS 
CHAR_SS3_2 = 2X'GF'; : equivalent 
LOCAL : 
~ LOCAL STATUS, Local error status 
NEW_KEY Address of new definition storage 


: REF S$BBLOCK, 
: REF SBBLOCK, Address of next key definition 
Flag to indicate key inserted 


Size of overhead sequence 


NEXT _DEF 

KEY INSERTED, 
TERA_OF FSET; 
! Check for angle bracket delimiters. 
IF .KEY_STRINGCDSCS$W_LENGTH) GTR 1 
THEN 


BEGIN 
IF .WECTORC.KEY STRINGCDSCSA_POINTER), 0; ,BYTE) EQL ‘<’ 


\ 


If present, there must be a matched pair. 


AX-11 Oi legate v4.0- 
SRC 


74 
-B52;1 


ae 


ee —— 


e | 
18-s Beet e8e FFi85:38  YANTEDr SAR Gace cose oS2;1 Page 3) 


; 4455 i THEN 

; 4 BEGIN 

3 §¢ 4 UI bs DSCSA_POINTER | = iar stale roses a porergt2 s. + 1; 

; 4 906 4 KEY-STRINGLDSC SW LENGTH) = KEYS tRIN NG bsesu FENG 

3; 6 : 4 IF ~VECTORL.KEY_STRINGCOSCSA_POINTER], .KEY_S Ainetoscsa: LENGTH]; ,BYTE] NEQ ‘>’ 

; 4 908 HEN RETURN 0; 

; 661 905 END; 

i. ne 

; 464 gig g 1 Check for conflicting type definitions. | 

: 4 id 3 JF (KEV BLOCKEKEYV_CTRLCHAR] AND .KEV BLOCK(KEY y_ESCSEQ] 

; te? 915 RE" VBLOCKEREY=V “CTRLCHAR) AND .KEY™ i TNGED bstsoe ar NEQ 1) 

a. i he 

: 670 3 ‘If this is a C1 type definition, loop twice (once for the C1 definition 

3 on; . 4 and once for the equivalent definition). Otherwise, only go through 

Py 7 once. 

3; 467 1 

; rte} } § INCR J FROM 1 TO iy eiS ert PLOCKCKEY -V_CSI] OR .KEY_BLOCK(KEY_v_SS3] 

: 476 924 

; ‘ir 925 BEGIN 

: ory 09 $ ! Determine the size of the overhead area. 

: cB 03 : 4 TERM_OFFSET = (IF KEY _BLOCKCKEY_V_CSI] OR .KEY_BLOCKCKEY_v_SS3) 

; 485 09 1 ‘ ese if oKEY. BLOCK[KEY_V_ESCSEQ) | 

; 485 hh ELSE 0); | 

; ret 5 ! Allocate storage for the key definition block. | 

: 489 Pp 3$ AED_L_WORSTERR = ALLOCATE (.KEY_STRINGCOSCS$W_LENGTH) : KEY_C 4 LENG + 

; 490 38 . TERM T, NEW_KEY); 

3 431 0933 IF NOT .AED_L_WORSTERR THEN RETURN 0; | 

: rth 941 ! Save the needed information in the key definition block. 

: 495 $928 NEW “EErf KEY_B_ACTION) = .KEY_A 110N | 

; 496 4 NEW"KEYCKEY-B-SIZE) = .KEY STRING DSCSW_LENGTH) + . TERM_OF FSET; 

3 rt 5 NEW vt KEY_B-FLAGS) = .KEY_FLAGS OR KEY_M_USERDEF; 

; 639 3 ! Set up the overhead area for the key text definition. 

: 501 § 1 KEY _BLOCKCKEY_V_CS1] OR .KEY_BLOCKLKEY_V_SS3] | 
0 50 

3 | 

$ 08 951 & 

3 26 by oe ~ EQL 1 

; 505 5 2 THEN NEW_KEYCKEY_T_TEXT) = Cr -KEY_BLOCKCKEY_V_CSIJ 

3 06 54 N CHAR_CSI ELSE CHAR_SS3) 

; 3 55 4 

5 38 28 5 BEGIN 

3 g NEW_KEYCKEY_T_TEXT] = (IF .KEY BLOCKCKEY V_CSIJ 

: 219 58 THEN CHAR_CSI_1 eCSE CHAR_S$3_1); 

> 511 59 6 (NEW_KEYCKEY_T_TEXT]) * 1 = CIF TKEYBLOCKCKEY_V"CSIJ 


18-58 -1984 23:37:5 AX-11 Bliss-32 v4.0-7. Pp | 
1am ep-19be $4 8553 ACLEDT SRESAEDDE CODE. B42: 1 oe if 


THEN CHAR_CSI_2 ELSE CHAR_SS3_2); 


END 

ELSE if NEN HEOTROSEKEy Vv reitite's 
else tee TKEY aes Veg 

HEN .KEY  STRINGLDSC A RESINTER] = ..KEY_STRINGCDSCSA_POINTER] = %Xx'4O'; 


! Move over the key definition text. 


CHSMOVE ( skeY STRINGCOSCSW ENGTH) -KEY_STRINGCDSC$A_POINTER], 
W_REYCKEY_T_TEXT] + . TERM_OFFSET); 


1°18. 
TRECHAR 


! Check for and remove any default definitions that this new definition 


3 5 

3 4 

3 i replaces. 

: NEXT_DEF = gkev TABLECKEY_L_FLINK); 

; KEY_INSERTE 

; 28 UNTIL EEK EF EOLA KEY _TABLECKEY_L_FLINK) 

3 80 4 BEGIN 

: 9981 4 IF .NEXT_DEFCKEY_B_ACTION] EQL .KEY_ACTION 

3 6 4 THEN 

3 Sf BEGIN 

: 9 IF .KEY_INSERTED EQL 0 

: 985 THEN 

; 8 986 6 BEGIN 

; 9 0987 6 INSQUE (new W KEV CKEY. L_FLINK], NEXT_DEFCKEY_L_FLINK)); 
; 279 . Ae INSE 

; 4 IF NOT sr ot eee 

: 54 991 THEN 

: 546 336 6 

: 545 993 6 -NEXT_DEFCKEY_L_BLINK) 

: 346 6 wai (ERT abit KEYL _FLINKI, xéy_ INSERTED); 

; «54 0995 g T_DEF 

: 548 444 D: 

3 549 0997 4 END 

; 550 0998 4 Next Def = .NEXT_DEFCKEY_L_FLINKI; 

3 51 END; ! End of C1 loop 
Z 26 1000 END; 

: 55 1001 2 KEY_FLAGS = 0; 

: 554 1 ‘ RETORN 1; 

3 55 1g? 

; 556 1 END; ! End of routine SET_DEFINITION 


OFFC 00000 SET_DEFINITION: 
. WORD 


Save R2,R3,R4,R5,R6,.R7,R8,R9,R10,R11 3 0846 | 
SE 08 ce 90002 SuBL2 #8, ; | 
01 oooo" cf 8 CHPU KEY _STRING. #1 > 0899 | 
IE 18 00004 BLEQU 1 } : | 
3¢ 0000" pF 91 9000¢ CMPB = @KEY_STRING#+4, #6 : 0902 
18 12 00011 BNEQ ='1$ ; 


2 | 
Neco} GHSESE UTES NtatelGe. M0 GP 


—+ 


0000° cf 0g 13 NCL. KEY_STRING+4 ; 
2A 1 UBW2 =a, wey STRI : 
9990: CF 3 1¢ MOVZWL KEV _§ RING, R : 
' ¢F ADDL2 KEY STRING+4, RO : | 
0 $ CAPS (ROT, #62 : 
4 £ : 1$: BBC #3, KEY_BLOCK+10, 4$ t 0914) 
5 BBC #4, KEYBLOCK+10, 3$ : | 
0148 1 7 3s: BRW : 
03 &1 A 3S: BBC a3, KEY BLOCK+10, 4$ ; 0915 
0009° cf iH ‘3 ny KEY_STRING, #1 : | 
06 0000" CF E 4$: BLBS § KEY_BLOCK+10, 5$ ; 0922. 
05 0000" CF 1 €1 BBC #1, -KEY_BLOCK+10, 6$ : 
B ; DO 00052 5$: MOVL #2. R11 : 
11 5 BRB 3 
5g 1 00 0005 g$: MOVL #1, R11 : 
9 ps O09A $: CLRL : 
010F 31 0005C BRW 6$ 3 
06 0000" CF E8 O005F 8s: BLBS  KEY_BLOCK+10, 9$ + 0929 
05 0000° cf 1 €1 0064 BBC #1, ~KEY_BLOCK+10, 10$ 3 
7 9 DO 0 6A 9S: MOVL J, TERMTOFFSET + 0930 
D 11 0006D BRB 12$ : 
05 0000° cf 4 €1 90 F 10$: BBC #4, KEY_BLOCK+10, 11 + 0931 
? 1 00 00075 MOVL #1. TERM_OFFSET : 
é 11 90078 BRB 12$ ; 
D4 0007A 11$: CLRL  TERM_OFFSET : | 
04 AE 3 007C 12$:  PUSHAB NEW_REY ; 0938 
50 0000" CF 3C O007F MOVZWL KEY STRING, RO ; 
04 AE 0B A740 9€ 000 MOVAB 11(TERM_OFFSET)CROJ, 4(SP) ; 
04 AE 9F OOOBA PUSHAB 4(SP) ; 
000000006 00 F 00 D CALLS #2, LIBSGET_VM ; 
58 D MOVL RO, VM_STATO 3 
11 ; 0097 BLBC -VM'STATUS, 13$ ; 
20 0000 CF 3C O009A MOVZWL KEY_STRING, R ; 
5 0B A740 9E 0009F MOVAB 11( TERM orf set) RO}, RO ; 
50 00 6E - 2c 4 MOVC #0, (SPT, #0, RO, @NEW_KEY 3 
0000" CF DO OOOAB 13$:  MOVL #§§ VM_STATUS, AED_L_WORSTERR : 
: 0000" CF €E9 000B BLBC AED_L_WORSTERR; 2$ : 0939 
04 0 008 MOVL  NEWUKEY, RO : 0943 
Ad 0000' CF B89 MOVE KEY ACTION, 8(RO) ; 
09 Ad 000° CF 7 81 000BF _ ADDB3 TERM_OFFSET, KEY STRING, 9(RO) > 0944 
A Ad $000 F 9 0006 BISB3 #32, °KEY_FLAGS, TO(RO) > 0945 
52 0000" CF 1 EF O00CD EXT2v #0, #1, REY_BLOCK+10, R2 + 0949 
E8 00004 BLBS R2, 14 ; 
32 0000" CF 1 €1 00007 BBC #1, KEY_BLOCK+10, 208 F 
1 b} DD 14$:  — CMPL : #1 > 0952 
1 3 E BNEQ $ ; 
96 5 E BLBC Re 15$ > 0953 
1 98 BF 9A OO0E mOV7BL #155, R1 : | 
11 O00E BRB 16$ ; 
51 BF 8F 9A OOOEB 15$: MOVZBL #143, R1 : 
0B AO 1 90 fF 16$: MOVB 1, 11(RO) : 
5 1 F BRB 2 f F 
51 é 06 F5 17% MOVL #27, R1 : 0957 
0B AO F MOVE 1, 11(RO) ; 


voe-000 


oc 


FEEB 59 


; Routine Size: 383 bytes, 


51 

0c Ad 
0000" CF 
08 AO 


SS onogue, 


0000" CF 


OA A6 
046 AE 


Routine Base: 


2 
1b-sep-1 
12-8687} 
$8 X Segre 
1 
oF f A 001 18$: 
1 99 1 1S8: 
1 
oe 1 10F 208: 
Ho Goll 
; eH 118 218: 
F 1 : 
a Sf 15, 228: 
00006 gf DO 001 
A ee 139 
0000G CF . 138 23%: 
i 
13 0014 
08 A 91 14 
i ie eu 
0 BF OF a 
a: } 1 
i 06 a183 248: 
06 Ab p? 015 
66 OF O016¢ 
04 AE DO 0016 
66 00 Bal ee 258: 
SF ET OO1GE 268: 
0000° CF 94 819 ; 
i Bie 
50 04 0017C 27S: 
4 0017E 


SCODES + 0255 


be 41:52:28 


qe 


it 


of 


78, 
KEY 


AX-11 Blisg-32 Vv 
ACLEDT SRESAEDDEC tobe. % 2;1 


12(RO) 
Patt: pith 21$ 


KEY BLOCK*10, 228 
STRING*4 
sth RINGS @KEY_STRING+4, 11(TERM_OFFSET)=- 


KEY atts 
KEY" INS 
KEY- 


NEXT_DEF 
ERTED 
RO 


NEXT_DEF, RO 
(NEXT _DEF), KEY_ACTION 
i INSERTED 


ci NEXT W_KEY 
met BEF), KEY INSERTED 


w KEY witht DEF) 
i: Wi ERT 
(RENT. -DEF), fy 


DEF)? 
KEY, NEXT_DEF 


i péF), ANERT _DEF 


R11 


KEY FL AGS 
“i, 


le J, 8$ 


0987 


2 SS8S332833 


sf 
5-fep- 198 41:80:28 — FatlevrSatSacoot cove eS2:1 ey 


] 
| 
: 38 ! 5 ! GLOBAL ROUTINE AED_DECODEKEY = 
; 560 1 1 Se 
3 36) 1 3 ii 
F $¢ ! 4 ! FUNCTIONAL DESCRIPTION: 
: 564 1011 1! This routine accepts input from the input channel and decodes it | 
; 565 1 \§ 1 according to the get tats tens from the action definition file (or 
3 $8 1013 1: the default definitions). 
3 3 1014 1 
; 568 1015 1 ' CALLING SEQUENCE: 
3 , 1917 : AED_DECODEKEY () 
3; $71 1 + 1 | INPUT PARAMETERS: 
3 Lf 101 13 none 
3 ef 1020 1! 
3; 574 1021 1°! IMPLICIT INPUTS: 
3 af? 10 ¢ 1 none 
3 76 10 1 i 
s Sr 1024 1 | OUTPUT Ratton 
; 578 1025 1! 
; 579 10 $ 1 i 
; 580 10 1 i stata = eres: 
3; 38) 1028 1! 
3 on6 1029 1! 
: 58 1030 1 | ROUTINE VALUE: | 
; 584 193) 1/ 0 if a fatal error occurs 
; 585 10 § 1: Action code value if special (AED_V_ACTION also set) | 
3 Hs] 193? 1: ASCII character value 
; 587 10 1 i 
; 588 1035 1! SIDE EFFECTS: 
; 589 10 ii none 
: ag 103 1 i | 
: 591 Ses 1 i- 
3 23§ 1039 1 
; 59 1040 BEGIN 
3 594 1041 
3; 595 1008 MACRO 
3 38 104 TERM_CHAR = AED Ww 10SBEE i, 
; 59 1044 TERM_SIZE = AED W_IOSB z 
; 298 1045 TERM~STRING = INPOT"BUFFERL.AED_W_10SB(1)) %; 
; ras 1007 — DECODE_KEY | 
3 O06 1909 
; 60 1050 LOCAL . 
: 604 1051 LOCAL_STATUS, ; Local routine return status 
; 605 1 2§ INPUT BUFFER : VECTOR (10 Bytes ' Storage for input characters 
; 606 105 TERM_DESC SBBLOCK §C$C_S_BLNJ,. ' Term table descr | 
; 60 1054 TERM_TABLE VECTOR : Terminator table 
; 608 1055 InITTAL see 8 os (-1)), ' ALL are kerminators | 
3; 609 1 2$ NEXT_DEF REF ‘address of next key efiniti 
3 619 105 KEY QITHOUT_GLD : REF $B BBLOCK: ! Address of key definition ne gold required 
: 1 ' 28 RE TORN_CHAR; ' Character/code to return 
; $18 1060 ! If this is a recovery, get a word (16 bits) from the re covery record This 
; 614 1061 i contains a character if the high byte is zero, or ane ditor action if not. 


sf 
i$: Beet 8Be 97:85:38 | Aer sae facone case 2.1 Page 2 


= MED_6_OPTIONSCAED_V_RECOVER] 
BEGIN 
a enti tment ties LEQ 0 
BEGIN 
hen (LOCAL_STATUS = SGET (RAB = RECOVER_RAB)) 
BEGIN 
ae eaten STATUS NEQ RMS$_EOF 


BEGIN 
AED_F ILERROR (AEDS. RECREADERR RECOVER. FAB 

RECOV RAGS. $TSJ,~ .RECOVER_RABLRABSL_STV)); 
AED 8 _OPTIONSCAED_V VRECOVER 


CLOSE (FAB = RECOVER_FAB); 


Ab B OPTIONSCAED_V_RECOVER] = 0; 
RETORA 1; 


END; 
RECOVER_INDEX = 0; 


PAA AAAAASAAPAAP AAAS AIAAOAAS 


ts 


5 
| 
4 
R NDEX = .R 
| AED L FCAGS ue ACTIONREYS s 
4 
4 
: 
4 
4 
4 


ee ee em me ee a ed ed ed dd td 


Be Se Se Ge Se Se Se Se Se Se Ss Se Se Ge Se Se Ge Se Ge Se Ge Ge Gs Se Se Fe Ss Ge Ge Se Ge Ge Se Ge Ge Ge Ge Se Se Se Se Se Se Se Ge Se Se Ge Se Se Se Se Ge Se Se Ge ae 


END; 

38 0 URN CHAR = .RECOVER_BUFFERL. RECOVER, INDEX]; 
640 08 x -RECOVER _BUF FERC .RECOVER_INDEX); 
641 088 RECOVER_INDEX =".RECOVER_INDEX + 
648 089 RECOVER-RABLRABSW_RSZ) =~.RECOVER “RABLRABSW_ RS2) = 2; 
64 090 END 
644 091 2 ELSE 
645 09¢ 
646 Sez ! Get a character typed (or escape sequence) by the user. 
648 095 3 DECODE_KEY: BEGIN 
649 096 TERM_DESCCDSCS$W_LENGTH] = 84; 
650 09 TERM-DESCLDSCS$A-POINTER] = TERM_TABLE; 
651 P 1098 AED_C_STATUS = SQ10W (CHAN = .AED W TERMIN, ! Get character 
63¢ P 1099 FUNC = 10$_RERDVBLK Nor’ LOSM_ESCAPE 
65 P 1100 1OSM~NOF ILT 
654 P 1101 OR 10SM~ IRMNOE CHO, 
655 Pp 108 10SB = AED_W_10SB, 
636 P 110 Pl = JWPUT_BOFFER, 
65 P 1104 P2 = 10 
658 105 P4 = TERM DESC); 
65 1 IF jAEDt STATUS THEN AED_L_STATUS = .AED_W_10SBL0] 
660 107 IF “hED _L STATUS 
661 108 
66¢ 109 BEGIN 
66 110 IF .AED_L_STATUS EQL SS$_BADESCAPE 
664 111 THEN 
665 18 BEGIN | 
266 1 AED _L_STATUS = 
667 114 RET TORR CHAR = aed C_CHAR_ESC; | 
668 115 LEAVE DECODE_KEY; 
669 116 N | 
670 1 SIGNAL ‘. -AED _L_STATUS); 
671 118 RETUR | 


pp) 
rs SSRLEAE 


PIRI) at at et 
a ee ee ee a ee a ce ae a a ed a el a a ed ae a ed 


ec cc ee ee ee ee ee ee ee ed ed ed ed dd od od 


NNNOAO AAOAAAOUUIVVIVUMUIUIUUIS BE ERE RARER = 


PNPM BBB BWW BMA AAO UIE BEB WINN NIWINIAAIA ES BIW 
> 
mn 
o 


SN 


DONOUEWN—OOONOUS who 


Roronoforye 


Bo Se Se Se Se Be Se Se Se Se Ge Fe Se Ge Ss Se Ge Ge Ge FH Se Ge Ge Ge Fe Se Se Ge Ge Ge Ge Se Se Se Se Fe Se Se Ge Se Ge Se Se Se FHSS Ss Ge Se Se Ge Se Se ee Se Sees 


2 
artes eae eR 
END; 
! If the character is nothing special, simply return with the character. 
iF IF TERR ACHAR CEQ tN TERM éHAR NEQ %X°7F° 


"BEGIN 
RETURN. CHAR = .TERM_CHAR; 
Leave BECODE_KEY; 


| 
| 
Otherwise, it will be on gay to search the action definition table to 
epererns vena or not the character (or characters) defines an ACL 

on. 


KEY WITHOUT GLD = 0; 
EXT DEF = [KEY_TABLECKEY_L Liwxd 
uNTIC NEXT DEF EQLA TABLE KEY. LLFLINK] 


QLA KEY 


BEGIN 
IF CHSEQL (.NEXT_ 


T NEXT_DEFCKEY_T_TEXT], 
: TERM 


IZE), 
STRING, 0)~ 
THEN 


IF .NEXT_DEFCKEY_V_GOLDREQ] EQL .AED_L_FLAGSCAED_V_GOLDKEY] 
GIN 
L FLAGSCAED V_ACTIONKEY3 
RETORN CHAR =RERT _DEFCKEY_B_ * act10N2; 
LEAVE BECODE. KEY; 
1, NOT .NEXT_DEFCKEY_V_GOLDREQ] THEN KEY_WITHOUT_GLD = .NEXT_DEF; 
NEXT DEF = .NEXT_DEFCKEY_L_FLINK); 


: ey has been found in the definition table. Check to see if there 
Big hth except that the gore key was hit but not required. 


: the case, clear the GOLDKEY flag and return the appropriate 
; Uh code. Otherwise simply return the terminating character. 


IF .KEY_WITHOUT_GLD NEQ 0 
THEN 
BEGIN 
AED_L_FLAGSCAED_V_GOLDKEY 
AEDWU “FLAGS AED-VEACTIONK 
RETORR CHAR = <KEY_WITH 
LEAVE BECODE_KEY; 


END 
RETURN tHAR = .TERM_CHAR; 


A 
GLOCKEY_B_ACTION); 


! End of DECODE_KEY block 
! If the action cannot be logged (EXIT or QUIT), simply return now. 


F .AED_L_FLAGSCAED_V_ACTIONKEY) 
( RETORN. CHAR col" KEY_C_EXIT OR .RETURN_CHAR EQL KEY_C_QUIT) 


— 


2 
AEDSDE CODE 1Beseo-1984 24:57:58  YAM1? BLisg=52 y4a0-74g, Page: 38 


| 
| 
| 
THEN RETURN .RETURN_ CHAR; | 
| 
| 


<> 


-PSECT $PLITS,NOWRT ,NOEXE ,2 


oe 117 3 
ee 11 $ 3 
3 3) 1178 If necessary tt the cherecter or code into the journal buffer. If ; 
: 138 17 the buffer fills up, write it out. : 
oe 11 i neo _B_OPTIONSCAED_V_JOURNAL J 3 
moO ! 
ae 11 TF ® JOURNAL INDEX GEQ 10 : 
: oR ee 2 GIN 
: 740 11 4 IF NOT $PUT (RAB = JOURNAL_RAB) THEN AED_B_OPTIONSCAED_V_JOURNAL] = 0; : 
> 741 11 4 CHSFILL (¢ Pa g JOURNAL. BUFFER); : 
; 74 1189 4 JOURNAL _ IND : 
3 74 1190 END; 3 
: 746 1191 JOURNAL pomas JOURNAL INDEX} = ,RETURN_CHAR; ‘ 
; 745 1136 JOURNAL- INDEX =. .JOURNAC_INDEX + 1; i 
: 746 119 If .AED-L_FLAGSCAED V_ACTIONKEY] ; 
: 747 1194 THEN JOORRAL “BUFFERE JOURNAL” INDEX] = 1 i 
: 748 1195 ELSE yp OURNAL “BUF FERC. JOURNAL p INDEX = 0; : 
3; 749 1136 L_INDER = .JOURNAL_INDEX + 1; | 
s 750 119 3 3 
; 751 1198 i 
3 P38 1199 RETURN .RETURN_CHAR; : 
ee 1200 3 
3 754 1201 1 END; ! End of routine AED_DECODEKEY i 
00011 -—BLKB 3 j 
FFFFFFFF® 00014 P.AAC: .LONG -1C8) 3 i 
.EXTRN SYS$CLOSE, SYS$Q10W i 
.EXTRN SYSS$PUT ; 
.PSECT $CODES,NOWRT,2 
OFFC 00000 -ENTRY AED AdECODEKEY, Save R2.R3,R4,R5,R6,R7,.R8,- ; 1005 
58 000000006 00 9€ 90002 MOVAB Scasser CURSOR, R11 F 
0000' CF 9E 000 MOV FLAGS, R10 : 

? ae 4 § 4 SUBL 3 
6E 0000" CF 0 001 MOVC * P.AAC, TERM TABLE ; 1055 
76 04 AA 1 €1 90017 BBC AED_B OPTIONS, : 1063 
04F6 CA 83 d01¢ TSTW wi cae RAB+3 > 1066 

46 12 00020 BNEQ $ 3 
0404 CA 9F 00022 PUSHAB RECOVER RAB : 1069 

00000000G 00 1 4 | B08 6 CALLS @# SYSSGET 3 

4 : E8 0002D BLBS §_ LOCAL_STATUS, 2$ : 
0001827A F ot 00 " CMPL OCAL~ “STATUS. #98938 3; 1072 

18 13 000 BEQL 3 
7E 40C CA 7D 9 9 mMOva RECOVER_RAB+8, -(SP) : 1076 

4gh A OF PUSHAB R : 

000000006 8F DD 0004 PUSHL #AED$_RECREADERR : 

0000G CF 4 FB 0004 CALLS #4, AED_FILERROR : 


7 nae 
3 
18-s2 =1984 23:37:5 AX-11 Bliss-32 V4.0-74 Page 39) 
12-88-1986 49:35:38 PACLEDT SRe AEDDECODE .832;1 9 a) 
04 02 8A 00040 BICB2 #2, AED_B_OPTIONS : 1077 
0424 CA St 88) 1$: PUSHAB RF COVEREEAB : 1079) 
000000006 00 1 FB 00055 CALLS #i, SYSSCLOSE : 
4 AA é BA 905 BICB We, AED _B_OPTIONS + 1080 
50 : 06 MOVL #1, R + 1081 
0524 CA p4 Spe 3s: CLRL_ RECOVER_INDEX + 1083 
50 518 CA 9E 0068 $: MOVAB RECOVER BUFFER RO + 1085 
BREE OAR AEDR REEL RE SOMERARnEOD, meTUR con tom 
50 at) CA 9E 0007 MOV RECOVERBUFFER, R + 1087 
0524 DAGO 9F 907 PUSHAB QRECOVER INDEXER F 
wa a oe 2 0524 Pe fe $087 INCL Recover IND Ag taste : 1088 
O4F6 CA 03 he 00088 suBw2 fe. RECOVER_RAB+34 : 1089 
0 AE 20 B0 00092 4$ MOVW #32, TERM_DESC + 1096 
4 AE ge 9E 00096 MOVAB TERM_TABLE, TERM_DESC+4 : 1097 
E 7C OO09A CLRQ  =(SPY + 1105 
28 «AE OOF 9009¢ PUSHAB TERM_DESC ; 
7E OA 7D 0009F MOVa =: #10, ~=(SP) : 
3¢ = AE. «OOF OO0A PUSHAB INPUT_BUFFER : 
7E 7C OOOA cLrq_s : 
0084 CA 9F OO0A7 PUSHAB AED W_IOSB : 
7E 5231 §F 3¢ 000AB MOVZWL #2104T, -(SP) : 
7E 7¢ AA 3C 00080 MOVZWL AED_W_TERMIN, -(SP) : 
7E 04 00084 CLRL = (SP) : 
000000006 00 OC FB 00086 CALLS #12, SYS$QI0W : 
mse Stone RFR Mame ROME aS 108 
008c CA 0084 CA ee 000¢ MOVZWL AED"W-10SB, AED L_STATUS : 
60 008c «CA CES GO0cE BLBS AED"L“STATUS, 1T$ + 1107 
3¢ 008¢ cA bi 90003 5$ cMPL AED-L-STATUS, #60 ; 1110 
008c «CA 01 6 OOODA MOVL #1, AED_L_STATUS : 1113 
cont 8 Sis es, (at TLOMe ins 
12 6A 03 £€1 OO0ES 7$: BBC #3, AED_L_FLAGS, 8$ : 1117 
01 DD 000E9 PUSHL #1 : 
15 DD O00EB PUSHL 4 : 
000000006 00 02 FB OO0ED CALLS #2, SCRSERASE_PAGE : 
of 8 Be BR : 
6B 02 FB 000F8 CALLS ss SCRSSET_CURSOR : | 
008C CA DD 000FB 8 PUSHL AED_L_STATU : 
000000006 00 01 FB OOOFF CALLS #1, LTBSSIGNAL : 
0B 6A 03 gl 0106 BBC #3. AED_L FLAGS, 9$ : 
7E 0 AA 9A OO10A MOVZBL AED_B_C 7 (SP) ; | 
7E 4 AA 9A 0010 MOVZBL AED 8 LINE, -(SP) : 
$8 02 F 11 CALLS #2, SCRSSET_CURSOR : 
0 008c CA p 115 9$ MOVL  AED_L_STATUS, RO ; 
07 50 O11A BITS 7 : 
11 13 0011D BEQL : 
51 50 0 00 EF OIF EXTZ2vV #0, #3. RO, R1 : 
51 16 AA 0 0 8 a CMPLV #0. #3. AED_L_WORSTERR, R1 
16 AA 5 D0 0012¢ MOVL RO, AED_L_WORSTERR : 


1 -1984 23:37: AX-11 Bliss-32 V4.0-74 
1 71382 47:35:38 EACLEDT-SReTAEDDE CODE .B 2:1 
OODE 31 001 BRW 2 
02 AA Of A 001 3 BICB2 $33, AED_L_FLAGS+2 
38 0088 cA C 001 MOVZWL AED_W JOser4, RB 
g Bi 0013C¢ CMPW ORS, #3 
p 1F o1 F BLSSU 128 
007F BF 8 B1 00141 CMPW 3S sé, #127 
61 if 146 BNEQ =«a7$ 
6 D 14 12$ CLRL - KEY_WITHOUT_GLD 
4 00006 CF D0 0014A MOVL KEY-TABLE, REXT_DEF 
g 0086 CA 3C O014F MOV2WL AED“W_10SB+2, RS 
9 28 AE 9E 00154 MOVAB INPOT-BUFFER, R9 
20 00006 CF oF 0158 13$ MOVAB KEY_TABLE, RO 
4 01 0015p CMPL NEXT_DEF, RO 
5 13 9160 BEQL 16$ 
50 09 Ad 9A 0016 MOVZBL 9(NEXT_DEF), RO 
OOBA CA 00 0B AG 30 2D 00166 CMPCS RO, 11TNEXT_DEF), #0, AED_W_IOSB+6, (R9)- 
694 00166 Cr5) 
20 12 0017 BNEQ  15$ 
50 01 AA 01 03 EF O178 EXTZV #3, #1, AED_L_FLAGS+1, RO 
50 OA AG 01 02 €ED 0017 CMP2V #2, #1, 10(NERT_DEF), RO 
OA 12 0017E NEQ 14$ 
02 AA 20 88 00180 BISB2 #32, AED_L_FLAGS+2 
57 08 AG 9A 00184 MOVZBL 8(NEXT_DEFY, RETURN_CHAR 
22 11 00188 BRB 18$ 
03 OA AG 02 €0 0018A 14$: BBS #2, 10(NEXT_DEF), 15$ 
56 54 DO 0018F MOVL NEXT_DEF, KEY WITHOUT_GLD 
54 64 D0 00192 15$: MOVL (NEXT_DEF), NEXT_DEF 
C1 11 0019 BRB 13$ 
56 DS 00197 16S: TSTL KEY_WITHOUT_GLD 
OF 13 00199 BEQL 17 
01 AA 08 8A 0019B BICB2 #8, AED_L_FLAGS+1 
02. AA 20 88 0019F BISB2 #32, AED C _FLAGS+2 
57 08 A6 9A 001A3 MOVZBL 8 (KEY_WITHOUT_GLD), RETURN_CHAR 
03 11 OO1A7 BRB 18$ 
57 58 DO 001A9 17$:  MOVL 8, RETURN CHAR 
OA 02 AA 05 €1 OO1AC 18$: BBC #5, AED_L_FLAGS+2, 19$ 
27 57 01 00181 CMPL § RETURN_CHAR, #39 
57 13 00184 BEQL 4 
28 57 D1 00186 CMPL § RETURN_CHAR, #40 
52 13 00189 BEQL 24$ 
4E 04 AA €9 00188 19$:  BLBC AED_B_OPTIONS, 24$ 
OA 0420 CA D1 001BF CMPL JOURNAL INDEX. #10 
1E 19 001C4 BLSS i$ 
0378 CA 9F 001C6 PUSHAB JOURNAL_RAB 
000000006 00 01 FB OOICA CALLS #1, SYSSPUT 
04 50 €8 001D1 BLBS_— RO, 
04 AA 01 8A 00104 BICB2 #1, AED_B_OPTIONS 
OA 00 6E ate oe C 3108 208: MOVC #0, (SPT,~#0, #10, JOURNAL_BUFFER 
er CA D4 Dib CLRL_  JOURNAL_INDEX 
50 0414 CA E 164 21$:  MOVAB JOURNAL BUFFER, RO 
0420 DA4O 57 90 OO1E9 MOVB RETURN CHAR, @JOURNAL_INDEXCRO) 
420 CA 06 Ole INCL. JOURNAC_INDEX 
50 414 CA 4 13 AB JOURNAL “BUFFER, RO 
50 420 CA CO OO1F ADDL JOURNAL” INDEX R) 
05 02 AA 05 1 OO1FD #5, AEDTL_FLAGS+#2, 228 
60 1 90 00202 MOVB #1. (ROT 
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SMM tate 
PP ty 4 Aww WSLS 
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To eres ) 


3 
DSDE CODE 13-5 Sep-19 AX-11 Oh hog -32 v4.0-7 P 41 
vOe-000 14-Sep or 1984 #73 3533 ACLEDT. §rci AEDDECODE. 3 2;1 me (6) 
02 11 0020 BRB 238 : 
86 94 $5 $9 ¢3: CLRB (R 3; 1195 
0420 CA 43 00209 23$: INCL §JOURNAL_ INDEX 3 1196 
50 57 DO 00200 24$: MOVL RETURN_CHAR, RO 3 1199 
04 00210 RET : 
50 04 00211 25%: CLRL : 1201 
04 00213 RET : 


; Routine Size: 532 bytes, Routine Base: SCODES + 0304 


| 
tSoseortgee 28:57:54 ytd! OLingas2 veda7az, Page 42 


GLOBAL ROUTINE AED_FLUSHKEY = 

tee 

' 

i FUNCTIONAL DESCRIPTION: | 
This routine flushes the journal buffer and closes the journal file. 


i CALLING SEQUENCE: 
i AED_FLUSHKEY () 


' 

' 

' 

' 

' 

' 

' 

! INPUT PARAMETERS: 
: none 

J 

: IMPLICIT INPUTS: 

: storage 
! OUTPUT PARAMETERS: 
: none 
' 

' 

' 

' 

' 

' 

' 

' 

' 

‘ 

' 


—t 4 tb a 2 ss 2 _ 


i IMPLICIT OUTPUTS: 
: none 
i ROUTINE VALUE : 


i SIDE EFFECTS: 
none 


BEGIN 

! If not writing a journal file, simply return now. 
If NOT .AED_B_OPTIONSCAED_V_JOURNAL] THEN RETURN 1; 
Oe aaa INDEX GTR 0 


BEGIN 
JOURNAL _RABCRABSW wit " - JOURNAL _INDEX * 2; 
a (RAB = JOURNAL _ 3 


JOURNAL _F ABLF ABSV Ne 2 ay -AED_B_OPTIONSCAED_V_KEEPJNL; 
$cLOsE TFAB = MSOURNA 


me a ak a ad a et a a od kd ss oo a ed 


PPP PPP Pree 
VEWN—OO 
PPI WAI 9 8 tt a tt es 


. 


$5 RETURN 1; 
51 END; ! End of routine AED_FLUSHKEY 
000 ENTRY AED_FLUSHKEY 3 e nothin 3; 12 
34 0000" cr “e9 o0ds LBC © AED7B_OPTIONS, 28 . + 13% 
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COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:AEDDE CODE /0BJ=0BJ$:AEDDECODE MSRCS$:AEDDE CODE /UPDATE=(ENHS: AEDDE CODE ) 
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50 0000" rf if : pov a RO 
0000° CF 50 0000" Oe $ : ae RO 1 ie RAB+34 
000000006 00 FB 18 CALLS #1, SYS$PU 
0000° CF 1 EF 1F 1$ EXTZV #3, #1, ALD -B_OPTIONS, RO 
! dé 0 § MCOML RO, 
01 F BS INSV RO, #7, #1, JOURNAL_FAB+5 
0000" CF 9F 00030 PUSHAB JOURNAL _FAB 
000000006 98 1 fe $8 CALLS #1, SYSSCLOSE 
1 8 038 2$: MOVL #i, RO 
4 0003E RET 
; Routine Size: 63 bytes, Routine Base: SCODES + 05E8 

8 1 28 1 

80 1253 1 END 

808 1254 0 ELUDOM 

PSECT SUMMARY 
Name Bytes Attributes 
AED_COMMON 1320 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, OVR,NOPIC,ALIGN(O) 
SOWNS 0 NOVEC, WRT, RD ,NOEXE,NOSHR, iCL, REL, CON,NOPIC,ALIGN(2) 
_LIBSKEYOS 4 NOVEC,NOWRT, RD ME, SHR, LCL, REL, CON, PIC,ALIGN(1) 
“LIBSSTATES 538 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
LIBSKEY1$ 518 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, (CON, PIC,ALIGN(1) 
SPLITS 15? NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, aekfenod Eig both fs 
SCODES 15 NOV VEC ;-NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
Mp Ce = Bee Se ~ Lt 4 YS aes Symbols eecmecce Pages Processing 
File Total Loaded Percent Mapped Time 

_$255$DUA SYSLIBILIB.L 3251 18619 122 1000 00:01. 
Rita Fey et Bay baan AMAC.L32;1 42 5 69 14 $0:00:8 
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